% The Computer Modern Roman family of fonts (by D. E. Knuth, 1979)
danger=mi=0;
input romitu;	% upper case (majuscules)
input romanl;	% lower case (minuscules)
input romand;	% numerals, ampersand, and question mark
input romans;	% miscellaneous letter combinations
input romitp;	% punctuation symbols common to all roman and italic
input romita;	% accents and other symbols common to roman and italic text
if ligs≠0: input romlig;	% letter ligatures (codes \¬044, \¬173--\¬177)
	input romitl;	% ligatures common with italic
	input romext;	% nonstandard character (code \¬043)
else: input romits;	% substitutes for ligatures
fi;
if fixwidth=0: new k,kk,kkk;	% three degrees of kerning
	k=-.5pu; kk=-1.5pu; kkk=-2.5pu;
	lig `k: `v: `a kern -1pu, `w: `y: `a kern k,
		`o kern k, `e kern k, `c kern k;
	lig `F: `V: `W:
		`A kern kkk, `o kern kk, `e kern kk,
		`a kern kk, `u kern kk, `r kern kk,
	    `K: `X:
		`O kern k, `C kern k, `G kern k, `Q kern k;
	if ucs≠0: lig `T: `y kern k, ;
	else: lig `T: `y kern kk, ;
	fi;
	lig `Y: `o kern kk, `e kern kk,
		`a kern kk, `u kern kk, `r kern kk,
	    `P: `A kern kk;
	lig `O: `D: `A kern k, `W kern k, `Y kern k, `V kern k, `X kern k;
	if lcs≠0: lig `h: `m: `n:
		`t kern k, `u kern k, `b kern k,
		`y kern k, `w kern k, `v kern k;
	fi;
	lig `o: `o kern -k, `x kern k,
	    `a:	`v kern k, ;
	if ligs≠0: lig '044: ;
	fi;
	lig `t: `y kern k,
	    `u: `w kern k;
	if ucs≠0: lig `R: ;
	fi;
	lig `A: `t kern k,
	    `L: `T kern kk, `O kern k, `U kern k, `C kern k,
		`W kern kkk, `Y kern kk, `G kern k, `V kern kkk,
		`Q kern k;
	texinfo slant, 6pu, 3pu, 2pu, px, 18pu, 2pu;
else: texinfo slant, 9pu, 0, 0, px, 9pu, 9pu;
fi.